home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 89 / 089.d81 / appender source < prev    next >
Text File  |  2022-08-26  |  885b  |  85 lines
  1. open =$ffc0
  2. readst =$ffb7
  3. setlfs =$ffba
  4. setnam =$ffbd
  5. load =$ffd5
  6. getin =$ffe4
  7. clrchn =$ffcc
  8. close =$ffc3   ;a
  9. chrin =$ffcf
  10. chkout =$ffc9  ;x
  11. chkin =$ffc6   ;x
  12. plot =$fff0
  13. chrout =$ffd2
  14. color'pointer =243
  15. screen'line'pointer =209
  16. print'number =$bdcd ;x,a
  17. clear'line =59903
  18. background =53281
  19. border =53280
  20. unlisten =$ffae
  21. clall =$ffe7
  22.  
  23. .org $033c
  24. .obj "appender.o"
  25.  
  26. ;append program
  27. ;sysaddr,filename$,device
  28.  
  29.  
  30. jsr get'string
  31. jsr setnam
  32. jsr get'number
  33. ldx $14
  34. cpx #8
  35. bcs +
  36. ldx #8
  37. + lda #1
  38. ldy #0
  39. jsr setlfs
  40.  
  41. ldx 45
  42. ldy 46
  43. dex
  44. dex
  45. cpx #254
  46. bcc +
  47. dey
  48.  
  49. + lda #0
  50.  
  51. jsr load
  52. stx 45
  53. sty 46
  54.  
  55. ldy #0
  56. - lda text,y
  57. beq +
  58. sta 631,y
  59. iny
  60. bne -
  61.  
  62. + lda #4
  63. sta 198
  64. jmp 42291
  65.  
  66.  
  67. ;***** get string from BASIC ****
  68.  
  69. get'string jsr $aefd
  70. jsr $ad9e
  71. jsr $b6a3
  72.  
  73. ldx $22
  74. ldy $23
  75. rts
  76.  
  77. ;**** get number from BASIC ****
  78.  
  79. get'number jsr $aefd
  80. jsr $ad8a
  81. jsr $b7f7
  82. lda $14  ; got low byte
  83. rts
  84. text .asc "clr":.byt 13,0
  85.